home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0186 / vb.zip / TOGMDI.FRM < prev    next >
Text File  |  1996-01-17  |  2KB  |  101 lines
  1. VERSION 2.00
  2. Begin MDIForm TOGMDI 
  3.    Caption         =   "Toggle Custom Control VBX"
  4.    ClientHeight    =   4470
  5.    ClientLeft      =   1830
  6.    ClientTop       =   2865
  7.    ClientWidth     =   7245
  8.    Height          =   5160
  9.    Icon            =   TOGMDI.FRX:0000
  10.    Left            =   1770
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   2235
  13.    Width           =   7365
  14.    WindowState     =   2  'Maximized
  15.    Begin Menu mnu 
  16.       Caption         =   "&Demos"
  17.       Index           =   0
  18.       Begin Menu demo 
  19.          Caption         =   "&Colors/Text"
  20.          Index           =   0
  21.       End
  22.       Begin Menu demo 
  23.          Caption         =   "&Bitmaps/Timers"
  24.          Index           =   1
  25.       End
  26.       Begin Menu demo 
  27.          Caption         =   "-"
  28.          Index           =   2
  29.       End
  30.       Begin Menu demo 
  31.          Caption         =   "&Examples"
  32.          Index           =   3
  33.       End
  34.    End
  35.    Begin Menu mnu 
  36.       Caption         =   "&Help"
  37.       Index           =   1
  38.       Begin Menu help 
  39.          Caption         =   "&About Toggle"
  40.          Index           =   0
  41.       End
  42.       Begin Menu help 
  43.          Caption         =   "&Toggle Help"
  44.          Index           =   1
  45.          Shortcut        =   {F1}
  46.       End
  47.       Begin Menu help 
  48.          Caption         =   "All GMS Controls"
  49.          Index           =   2
  50.       End
  51.    End
  52.    Begin Menu mnu 
  53.       Caption         =   "&Order"
  54.       Index           =   2
  55.    End
  56.    Begin Menu mnu 
  57.       Caption         =   "E&xit"
  58.       Index           =   3
  59.    End
  60. End
  61.  
  62. Sub demo_Click (index As Integer)
  63.  
  64.     Select Case index
  65.         Case 0 'colors
  66.             togcolor.Show
  67.         Case 1 'bitmaps
  68.             togbitmaps.Show
  69.         Case 3 'samples
  70.             Examples.Show
  71.     End Select
  72.  
  73. End Sub
  74.  
  75. Sub help_Click (index As Integer)
  76.  
  77.     Select Case index
  78.         Case 0 'about
  79.             about.Show
  80.         Case 1 'control
  81.             i = Shell("WINHELP toggle.hlp", 1)
  82.         Case 2 'library
  83.             i = Shell("WINHELP instrmlb.hlp", 1)
  84.     End Select
  85.  
  86. End Sub
  87.  
  88. Sub MDIForm_Load ()
  89.  
  90.     about.Show
  91.  
  92. End Sub
  93.  
  94. Sub mnu_Click (index As Integer)
  95.  
  96.     If index = 2 Then i = Shell("WINHELP order.hlp", 1)
  97.     If index = 3 Then End
  98.  
  99. End Sub
  100.  
  101.